---
title: "3700 Project"
author: "Kelly Money"
date: "4/16/2020"
output: 
  flexdashboard::flex_dashboard:
    theme: darkly
    social: menu
    source_code: embed
    vertical_layout: fill
    orientation: rows

---





```{r setup, include=FALSE}
#load packages
library(flexdashboard)
library(coronavirus) 
library(tidyr)
library(DT)
library(dplyr)
library(knitr)
library(plotly)
library(testthat)
library(devtools)
library(remotes)
library(leaflet)
library(leafpop)
library(purrr)
library(shinythemes)
library(xaringan)
library(gganimate)



```


```{r, include=FALSE}
#In order to present the most updated version of the data, check the original data for updates
# coronavirus::update_datasets(silence=TRUE)
data("coronavirus")

#cool little trick to load function from a package that you don't want to load
`%>%` <- magrittr::`%>%`



```



```{r}
#Map
map_plot <- coronavirus %>%
        dplyr::filter(cases > 0) %>%
        dplyr::group_by(Country.Region, Province.State,Lat,Long,type)




```